home *** CD-ROM | disk | FTP | other *** search
/ The History of Denim / The History of Denim.iso / pc / _time.dir / 00001.ls next >
Encoding:
Text File  |  1997-11-14  |  2.1 KB  |  52 lines
  1. on startMovie
  2.   global Mysong, MyPosition
  3.   if Mysong <> "Unzipped" then
  4.     sound stop 3
  5.   end if
  6.   set Mysong to "Unzipped"
  7.   ResumeAudio()
  8.   PurgeWindows()
  9.   ZeroLists()
  10.   set MyPosition to 1
  11.   preloadMember(member 21, 29)
  12.   repeat with a = 1 to 9
  13.     set the puppet of sprite a to 1
  14.   end repeat
  15.   set the puppet of sprite 15 to 1
  16. end
  17.  
  18. on ZeroLists
  19.   global WhoWhere, WhosHot
  20.   set WhoWhere to ["time_line1": 0, "time_line2": 640, "time_line3": 1280, "time_line4": 1920, "time_line5": 2560, "time_line6": 3200, "time_line7": 3840, "time_line8": 4480, "time_line9": 5120]
  21.   set WhosHot to [rect(236, 19, 259, 43), rect(262, 103, 285, 127), rect(728, 339, 751, 363), rect(1688, 110, 1711, 134), rect(1476, 361, 1499, 385), rect(1930, 11, 1953, 35), rect(2911, 84, 2934, 108), rect(3491, 109, 3514, 133), rect(4118, 291, 4141, 315), rect(4244, 131, 4267, 155), rect(4492, 10, 4515, 34), rect(4492, 64, 4515, 88), rect(4493, 133, 4516, 157), rect(4982, 138, 5005, 162), rect(5414, 257, 5437, 281)]
  22. end
  23.  
  24. on CreateWhosHot startfrm, startSpt, EndSpt
  25.   set increments to [rect(0, 0, 0, 0), rect(640, 0, 640, 0), rect(1280, 0, 1280, 0), rect(1920, 0, 1920, 0), rect(2560, 0, 2560, 0), rect(3200, 0, 3200, 0), rect(3840, 0, 3840, 0), rect(4480, 0, 4480, 0), rect(5120, 0, 5120, 0)]
  26.   set AddonList to [33, 33, 34, 35, 35, 36, 37, 38, 39, 39, 40, 40, 40, 40, 41]
  27.   set AddonList to AddonList - 32
  28.   go(startfrm)
  29.   set Addon to 1
  30.   set MyList to []
  31.   repeat with a = startSpt to EndSpt
  32.     if the rect of sprite a = rect(0, 0, 0, 0) then
  33.       go(the frame + 1)
  34.       set Addon to Addon + 1
  35.     end if
  36.     set temp to the rect of sprite a + getAt(increments, getAt(AddonList, a - startSpt + 1))
  37.     add(MyList, temp)
  38.   end repeat
  39.   put MyList
  40.   put count(MyList)
  41. end
  42.  
  43. on Bullshit
  44.   set Snapto to [rect(0, 456, 59, 480), rect(59, 456, 118, 480), rect(124, 456, 183, 480), rect(188, 456, 247, 480), rect(252, 456, 311, 480), rect(317, 456, 376, 480), rect(381, 456, 440, 480), rect(445, 456, 504, 480), rect(509, 456, 568, 480), rect(573, 456, 632, 480)]
  45.   set temp to Snapto + rect(30, 0, 30, 0)
  46.   put Snapto
  47.   put temp
  48.   add(Snapto, temp)
  49.   sort(Snapto)
  50.   put Snapto
  51. end
  52.